Imports KanBan.Pgd.Common

Public Enum SearchRequestStatus
    Created = 0
    InProgress = 1
    Finished = 2
End Enum

Public Class SearchRequestStatusExtension

    Public Shared Function GetValues() As IList(Of Pair(Of Integer, String))

        Dim returnList As New List(Of Pair(Of Integer, String))()

        returnList.Add(New Pair(Of Integer, String)(0, "Created"))
        returnList.Add(New Pair(Of Integer, String)(1, "In Progress"))
        returnList.Add(New Pair(Of Integer, String)(2, "Finished"))

        Return returnList

    End Function

    Public Shared Function GetDescription(ByVal status As SearchRequestStatus) As String

        Select Case (status)
            Case SearchRequestStatus.Created
                Return "Created"
            Case SearchRequestStatus.InProgress
                Return "In Progress"
            Case SearchRequestStatus.Finished
                Return "Finished"
            Case Else
                Return String.Empty
        End Select

    End Function

End Class
